home *** CD-ROM | disk | FTP | other *** search
/ CrystalVision Software Se… Wiki Wonder - Wikipedia / CrystalVision Software Services 703: The Wiki Wonder - Wikipedia.iso / 0703 / Educate / Complete Calc / Setup.exe / lib / tcl / parray.tcl < prev    next >
Encoding:
Text File  |  2006-10-25  |  454 b   |  19 lines
  1.  
  2. proc parray {a {pattern *}} {
  3. upvar 1 $a array
  4. if {![array exists array]} {
  5. error "\"$a\" isn't an array"
  6. }
  7. set maxl 0
  8. foreach name [lsort [array names array $pattern]] {
  9. if {[string length $name] > $maxl} {
  10. set maxl [string length $name]
  11. }
  12. }
  13. set maxl [expr {$maxl + [string length $a] + 2}]
  14. foreach name [lsort [array names array $pattern]] {
  15. set nameString [format %s(%s) $a $name]
  16. puts stdout [format "%-*s = %s" $maxl $nameString $array($name)]
  17. }
  18. }
  19.